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4. 


OPERATION 


4-1 


1 . SCOPE 


This specification describes the proposed design for a general 
file merge program to merge Universal or LARSYS files. The 
program is intended to provide a means of concatenating MSS 
image data from different sources (tapes , disk files, and so on) 
into data files for use by pattern recognition systems such as 
EOD-LARSYS. 

The requirements statement for this program was provided as a 
joint venture among the following constituents: 

• The RT&E Branch of the NASA/JSC Earth Observations Division, 

• The Scientific Applications Section (LEC) , 

• The Techniques Development Section (LEC) , 

• The Laboratory for the Applications of Remote Sensing at West 
Lafayette, Indiana. 


2 . APPLICABLE DOCUMENTS 


• Interdepartment Communication, K. H. Ahlers to P. J. Aucoin, 

March 1, 1978, Ref: 642-6805. 

• TIRF 78-0020, "Image Merge Capability", May 1978. 

« Technical Memorandum ^"Final Acceptance Test Plan for the 
EOD-LARSYS Conversion", Ref: 646C-13, March 1979. 




3. SYSTEM DESCRIPTION 


3.1 HARDWARE DESCRIPTION 
Not Applicable. 

3.2 SOFTWARE DESCRIPTION 

The software program described herein will furnish a general 
capability to merge formatted MSS data files into 
files suitable for input to pattern recognition systems such as 
EOD-LARSYS. Up to six files will be handled in the same merge. 
Merging will be accomplished, on user option, in any one of 
the following three ways : 

• Channel merge, whereby specified channels from selected files 
are concatenated. One rectangular spatial field will be 
user-specified, this field will be used in the extraction of 
data from all input files, 

• Spatial merge, whereby specified rectangular fields are 
abutted to form a larger spatial image. Each input field 
must have the same number of channels; however, the choice 
of channels from each field is user-specified, 

• Line merging, whereby user-specified scan lines from up to 
six input files are stacked to make an artificial, or "pseudo" 
image. All scan lines must have the same length, ie„ contain 
the same number of pixels. Channel selection from each input 
file is arbitrary, with the restriction that the number of 
channels from each file is constant. 

Up to 30 channels can be specified for the output file. It 
can be written in either Universal or Larsys II format. 
However, special header information, such as date and site, 
will only be written for Universal format. 

All merging is based on user-specified rectangular fields. 

For purposes of extraction, it is assumed that the sample 


co-ordinate of the first pixel in each scan line is 1. In the 
spatial merge option, rectangular input fields other than the 
upper left field should be input this way for purposes of 
extraction. 

The output file will have a rectangular field, with line and 
sample skip factors set to the value 1 and the first pixel 
co-ordinates set to (1,1). 

Merged channels will be renumbered starting with the value 1. 
Channels are merged in the order of appearance in input 
control cards. 

Sun angles will be extracted from header records or, on 
option, read in from control cards. Gains and biases will be 
unpacked for appropriate channels. Sun angle corrections 
will be performed on option to all pixels making up the 
output file. 

In the case of channel merge with Universally formatted output, 
sunangles and gains and biases are written to the output 
header. In any output file with Universal format, the date 
and site from the first input file will be written to the 
output file header. In gains and biases and sunangle extraction, 
it is assumed that the first channel on any input file is 
channel number 1 . 

The merge program described herein will be incorporated into the 
EOD-LARSYS system currently implemented at Purdue-LARS. (This 
system, which has been converted from UNIVAC EXEC 2 to IBM 
370/148 Fortran IV-G under VM/CMS is being run from remote 
terminals at LEC and NAS A/ JSC) . The merge program will be 
installed as a processor, called using processor card $DAMRG . 

It will be run as a stand-alone processor, or back-to-back with 
other processors. 


The proposed merge program will have particular utility in 
merging the single acquisition (four channel) files of the RT&E 
Data Base at Purdue-LARS. 

A general description of the proposed program design follows. In 
particular, labeled common blocks and data passage will be 
discussed. 

The merge program will have the overall architecture of an 
EOD-LARSYS processor. As such, it will consist of a main program 
called from the monitor routine, and it will call a small setup 
routine to read control cards, field cards, and perform initiali- 
zation of variables. Many of the existing EOD-LARSYS utilities 
will be utilized, a partial list includes the MSS data file 
readers and writers, the field card reader LAPEAD, the direct 
access file readers and writers, and the decoders used in inter- 
preting control cards. 

The main driver will be called DAMRG . It will call SET18 to read 
control cards and field cards. 

Existing labeled common blocks /GLOBAL/, /TAPERD/, / IS0LNK /, 
and /WRTAP/ will be included in both DAMRG and SET18 to facilitate 
information transfer. In particular, the variables of interest 
in each block are now listed. 

/GLOBAL/ 

DRUMAD 
NCHPAS 
DATAPE 
DATAPIL 
CRDUNT 



starting address of random direct access file 

number of channels per acquisition (usually = 4) 

output unit number (usually 11) 

output file number (usually 1) 

unit number of control card file (usually 21) 


PRTUNT 

RANDI4 

FC^RMT 

/TAPERD/ 

ID (200) 

NSAMP 

/WRTAP/ 

VARBL (18) 


/IS(|)LNK/ 

ISUNT 

ISUNC 

BUNANGLE ( 8 ) 


A new labeled common 
in DAMRG and SET18 . 
in SET18 . A list of 


printer unit number (usually 6) 

unit number of direct access file (usually 22) 

format of input files 

(®1 if Universal, *2 if LARSYS III) 


contains header information. A variable 
LOGICAL* 1 IDL (800) will be equivalenced for 
fcyt.e transfers 

number of samples/line for field 


information for writing output header. This 
will be changed to VARBL(600). A variable 
L6GICAL*1 VARIAB(2400) will be equivalenced 
to VARBL to pass sun angles, gains and 
biases, and site and date. 


switch to unpack sun angles from file and store 
switch to use card input sun angles 
sunangles for one file (up to 8) 

A variable LOGICAL*! LpGSUN(32) will be 
equivalenced for data transfer at the byte 
level. 

block /MRGDAT/ will be provided for inclusion 
All variables in /MRGDAT/ will be initialized 
/MRGDAT/ variables follows. 


/MRGDAT/ 

Variable 

IM<|>PT 

IS$PT 

NUMPIL 

IDATTP (6 ) 
IDATPL (6) 

N(J>FEAT 

NFEAT ( 6 ) 

FETVEC (30,6) 
ISUN (8,6) 


Labeled Common Block: 

D escription 

option switch, * 1 channel merge, *2 
spatial merge, * 3 pseudo merge 

sun angle correction switch^ * 0 no sun anqle 
correction applied to output pixels. 

number of input files, determined by counting 
DATAPE input control cards. 

unit and file numbers of input files 

number of channels for output file 

number of channels to be considered for input 
files 

channel numbers for input files 

sun angles of interest from input files 


SUNC(j>R ( 30 ) 
FLDINF (6,6) 


N^SAMP 
N^LINE 
NSS (6) 

NACR(J)S 

NLINES (6) 


sun angle correction factor (floating point) 
for output pixels 

rectangular field description for input files 
(starting line number, ending line number, line 
skip factor, starting sample number, ending 
sample number, skip factor) 

number of pixels/scan line on output file 

number of lines on output file 

number of samples/line on input fields in 
spatial option 

number of fields in horizontal direction in 
spatial merge option 

number of lines from input files in psuedo 
option 


Pointer to LINES 


LINPTR(7) 

LINES (600) line numbers from input files in psuedo 

merge option 

F<J>RMM format of output file (*1 Universal, *2 

LARSYS III ) 

Blank common ARRAY (T<{>P) and T<j)P ■ 10600 are passed to DAMRG 
through the calling sequence. 


The control card images and field card images required to be 
furnished are described next. This card image file is provided 
by the user. It is read by SET18 , 


e NEW CONTROL CARDS 
$ DAMRG 
Keyword 

(start in col. 1) 
NCPASS 

FORMAT 

DATE 

HED1 

HED2 

NLIN 


Parameters 

(start in col. 11 ) 

n 

(Default n«4) 

UNIVERSAL or 
LARSYS II or III 
(Default UNIVERSAL) 

( Def aul t-LYNDON B. 
JOHNSON SPACE CENTER) 

(Default-HOUSTON , 
TEXAS) 

n l' n NUMFIL 



Description 

number of channels 
per acquisition 

format of output 
data file 

alpha date info 

alpha header 
information for 
printout 


number of lines 
from each file in 
psuedo option 




SDAMRG 

Keyword 


NUMFIL 

CARDS 


NUMFIL 

CARDS 


NUMFIL 

CARDS 


Paramo ters Description 


<f>PTICti‘ 

CHANNEL or 
SPATIAL or 
PSUEDp 

(Default CHANNEL) 

merging option 

0PTlt>N 

ANGC^R 

sunangle correction 


(Default no sunangle 

applied to output 


correction 

pixels 

NACROS 

n 

In spatial option, 
number of fields 
to be abutted 
horizontally 

SUNANG 

TAPE 

sunangles extracted 

or 


from tape headers 

SUNANG 

* n* f 9 $ • f n ^ 

or 


H 1 

from input cards 

SUNANG 

n l' 


[datape 

INPUT/UNIT«*n^ , FILE»m 1 

Fortran unit is and 

\ 

// 

file is for input 

(DATAPE 

INPUT/UNIT-n NUMpiL > 

FILEssm NUMFIL 
(No default) 

files 

DATAPE 

0UTPUT/UNXT « n, FILE*m 

unit # and fj.le # 


(Default n«ll, m»l) 

for output file 

LINES 

n l' ’ ’ ’ ' n l 

In psuedo option, 

i 

// 

scan line numbers 

LINES 

n ' * ' ’ ' n N0LINE 

for extraction 
from files 

CHAN 

• 

• 

n l' ’ ' * ' n m 1 


• 

CHAN 

n l' " ' ,n m 

m NUMFIL 



*END control card 

delimitor 


• FIELD CARDS 


There will be one field ascription if the channel or psuedo 
merging option is specified. If the spatial option is specified, 
there must be as many field descriptions there as DATAPE input 
file control cards (ij^NUMFIL fields). 

Fields must be rectangular. Information specif ied,%n order, is 

sample skip factor ^ 
line skip factor f 

starting sample number | 
starting line number £ 

ending sample number | 

starting line number { 

ending sample number k 

ending line number t 
starting sample number 
ending line number ( 

Field descriptions start in column 11, with a comma between number 
pairs and parentheses enclosing number pairs, with commas 
separating parentheses. 

For example, a LAC IE segment might appear as (1,1), (1,1) (196,1), 
(196,117), (1,117), where the first parenthesis is located in 
column 11 (or further right) . 

Field card input is terminated by a $END card image starting in 
col. 1 . 


MERGING OPTIONS 


CHANNEL 

MERGE 


mmmy Chdll 7 | 8 

!M » 

J chan 1,2 
chan 5,6 

SPATIAL MERGE 



1 Y chan 1,2, 3, 4, 5, 6 

order of merge is 5, 6, 1,2, 7, 8 


-► 

2 


3 







5 

•f 

6 




Numbers indicate, order of input of file descriptors 
and field cards. 

NACR<j)S=3 


PSEUDO MERGE 


\ 


chan . 3,4 
chan. 10,11 

chan. 5,6 


chan. 1,2 













There is a limitation of 10600 radiance values per scan line 
in the currently proposed programs. 

This can be expanded by request of the Scientific Applications 
Section. 

The program to be described uses the following design features of 
EOD-LARSYS : 

• Byte~to~word unpacking in the file reader and word-to-byte 
packing in the file writer, 

• Simulation of word-addressable mass storage using a Fortran 
direct access disk file. 

Collection of all data destined for the output file on the 
direct access file is planned for this program, LAC IE segments 
can be handled this way with no storage limitations. Howev' 
for output files intended to have more than a million radiance 
values, a storage problem will occur. To handle this situation, 
a program extension is planned to use tape as the intermediate 
storage medium. 

Throughout' this document, the terms LARSYS II and LARSYS III 
will be used interchangeably when reference is made to the 
Purdue-LARS data file format. 


3.2.1 SOFTWARE COMPONENT NO.l (DAMRG) 

Subroutine DAMRG will be the driver for the DAMRG processor. It 
calls routine SET18 to obtain decoded input data, then processes 
each input file in order of occurence in the control card file. 

Extracted information is written to a random access disc file. 
Finally, the output file is written one scan line at a time. 

3. 2. 1.1 Link *ges 

Subroutine DAMRG will be called by the EOD-LARSYS driver MONTOR, 
and will call routines SET! 8 , TAPHOR, FLDINT, LINERD, SUNFAC, 
FSFMFL, WRTHED , WRTLN , RREAD , and RWRITE. 

3 . 2 . 1 . 2 Interfaces 

Subroutine DAMRG interfaces with other routines through labeled 
common /GLOBAL/, /TAPERO/, /MGRDAT / , /WRTAP/, /ISpLNK/, and 
blank common ARRAY (T(j)P) , T<1)P=10600. 

3 . 2 . 1 . 3 Input s 

Calling sequence: DAMRG 

Parameter Dimension 

ARRAY T(|)P 


T(|)P 1 

3. 2 . 1. 4 Outputs 

Routine DAMRG outputs an MSS data file in either Universal or 
1ARSYS III format. 


(ARRAY, TpP) 

Description 

General storage or buffer area for 
pixel radiance values, stored one 
value per word. 

Current dimension of ARRAY. 


3. 2 . 1. 5 Storage 








3. 2. 1.6 Description 

The description of subroutine DAMRG will be presented as FORTRAN- 
like statements. To be included are appropriate output statements 
describing progress through the file building and diagnostics as 
required . 



f 


| 


SUBROUTINE DAMRG (ARRAY, T(j>P) 

IMPLICIT INTEGER (A-Z) 

REAL SUNC0R, DUM 

L0GICAL*1 IDL ( 800 ) , VARIAB (2400 ) , L0GSUN(32) 

EQUIVALENCE (ID, IDL), (VARBL , VARIAB) , SUNANG , L0GSUN ) 
include /GLOBAL/, /TAPERD/ , /WRTAP/, /IS0LNK/ ,,/MRGDAT/ 
CALL SET18 

C** MAJOR LOOP ON FILES 


N1=0 

D<fi 700 1=1, NUMFIL 

C** CALL TAPE HEADER READ PROGRAM WITH UNIT AND FILE 

IDATU = IDATTP(I) 

IDATF = IDATFL (I) -1 
CALL TAPHDR ( IDATU , IDATF) 

C** NUMBER OF CHANNELS FOR THIS FILE 
NF=NFEAT ( I ) 

CALL FLDINT (FLDINF (1,1) , FETVEC (1,1), NF) 

C** SET FEATURE COUNTER 

IF (I.GT.l) N1=N1+NFEAT ( 1-1 ) 

C** SET SCALAR FIELD DESCRIPTION FOR THIS FILE 
SAMSTR = FLDINF (4,1) 

SAMINC = FLDINF (6,1) 

S AMEND = FLDINF (5,1) 

LINSTR = FLDINF (1,1) 

LININC = FLDINF (3,1) 

LINEND = FLDINF (2,1) 

C** NO. SAMPLES/LINE FOR FILE I COMPUTED IN FLDINT 
NS=NSAMP 

C** TOTAL NUMBER OF RADIANCE VALUES PER LINE 
NV=NS*NF 



C** STORE SUNANGLES 

IP (ISUNT.NE.O) G0 T<> 610 
IF (ISUNC.EQ.O) G<|> Td> 620 
C** SUN ANGLES FROM CARDS 
D$ 600 J=18 
ID (16+J) - ISUN (J , I) 

600 SUNANG(J) =ISUN(J,I) 

Gf) T$> 620 

C** SUNANGLES FROM TAPE HEADER 
610 D<J> 615 J=l,8 

ISUN (J, I) = SUNANG(J) 

615 CONTINUE 

CALL SUNFAC(SUNCCJR, SUNANG, FETVEC (1 , 1) , NF , ISUNT, ISUNC) 
620 CONTINUE 

C** LOAD VARIAB WITH EXTRA HEADER INFO 
C** LOAD DATE AND SITE FROM FIRST FILE 

IF (I.NE.l) G<|> T<f> 625 

VARIAB (73) = IDL(100) 

VARIAB (74) = IDL (104 ) 

VARIAB (75) = IDL (108) 

VARIAB (79) = IDL (111) 

VARIAB (80) = IDL (112) 

C** FOR PURPOSES OF UNIVERSAL HEADER WRITE 
C** LOAD VARIAB WITH SUNANGLES AND GAINS AND BIASES 
C** ONLY IF CHANNEL MERGE OPTION 
625 IF (IMOPT,NE. 1) G(p Tip 660 

D(p 650 J=1,NF 

IDUM = (FETVEC (J, I) -1) *2 
I1=112+IDUM ? I2=112+N1*2+ ( J-l) *2 
VARIAB (12) = IDL (11+3) 

VARIAB (12+1) = IDL (11+4) 

II = 240+IDUM; 12 = 240+Nl*2+ (J-l) *2 
VARIAB (12) = IDL (11+3) 

VARIAB (12+1) = IDL (11+4) 

II =* 368+IDUM; 12 = 368+Nl*2+ (J-l) *2 
VARIAB (12) = IDL (11+3) 

VARIAB (12+1) = IDL (11+4) 

II = 496+IDUM; 12 = 496+Nl*2+ (J-l) *2 
VARIAB (12) = IDL (11+3) 

VARIAB (12+1) = IDL (11+4) 


2^0 


650 CONTINUE 
KS-0 

D0 655 J»1,NF 


IDUM«FETVEC(J,I) 

IDUM=s ( XDUM-1) /NCHPAS 

IF ( ISUNT . EQ . 0 . AND . J . EQ . 1 ) KS=IDUM 

11 * (IDUM-KS) *4+3 

12 » 2201+ (Nl+J-1) *2 

VARIAB (12 ) » LDGSUN(Il) 

VARIAB (X2+1) “ L0GSUN (1+1) 

655 C0NTINUE 
660 CONTINUE 

C** INITIALIZATION FOR LINE EXTRACTION 

C** PARAMETERS NEEDED IF SPATIAL MERGE 

LjDC « (I-1)/NACR0S 

LREM a (1-1) - L0C*NACR0S 
N2»0 

IF (LREM.EQ.O) G0 T0 663 

D0 662 J=1,LREM 
622 N2=N2+NSS ( J) 

663 ICT=0 

C** PARAMETERS NEEDED IF PSEUDO MERGE OPTION 
LPTR = LINPTR(I) 

NL a NLINES (I) 

NLM = NL+LPTR-1 

CC** EXTRACT FIELD FOR THIS FILE LINE BY LINE 
D(p 690 II a LINSTR, LINEND, LININC 
ICT=ICT+1 

IF ( IM0PT . NE * 3 ) G0 T0 670 

C** LOOK FOR LINE MATCH IF PSEUDO MERGE 

D(f> 655 J a LPTR, NLM 

IF ( II .EQ .LINES ( J) ) G0 T<|> 670 
665 CONTINUE 
G0 T0 690 

670 CONTINUE 

C** READ SCAN LINE INTO ARRAY 

CALL E INERD ( ARRAY ( 1 ) , EN DTAP ) 

IF (ENDTAP.EQ.-l) error out, end of tape 



c** 

c** 


c** 


671 

672 


675 

C** 


676 

677 


C** 

680 


681 

682 




IF (IM^PT.NE.l) G0 Tp 675 

CHANNEL MERGE MODE WRITE NV VALUES 
TO DIRECT ACCESS FILE 

IF (ISpPT.EQ.O) Gp Tp 672 

Dp SUN ANGLE CORRECTION 

Dp 671 J=l, NF 
Dip 671 JJ=1,NS 

DUM * SUNCIpR ( J) *FLOAT (ARRAY ( JJ+ { J-l) *NS) ) 
ARRAY (JJ+ (J-l) *NS) = IFIX(DUM) 

CONTINUE 

ADDRESS s DRUMAD+ ( ICT-1) *NS*N1 

CALL RWRITE (ADDRESS, ARRAY (1), NV, STATUS) 

Gp Tp 690 

IF (IM^)PT.NE . 2 ) Gp Tip 680 

SPATIAL MERGE MODE WRITE NV VALUES 
TO DIRECT ACCESS FILE 

IF (IS<PPT.EQ. 0 ) Gp Tp 677 

Dip 676 J=1,NF 
Dip 676 JJ=1,NS 

DUM = SUNCIpR ( J) *FLOAT (ARRAY ( JJ+ (J-l) *NS) / ) 
ARRAY (JJ+ (J-l) *NS) = IFIX(DUM) 

CONTINUE 

ADDRESS « DRUMAD + L0C*NOSAMP*BF + NF*N2 
CALL RWRITE (ADDRESS, ARRAY (1 ) , NV, STATUS) 
G< p Tp 690 

PSEUDO MERGE OPTION 

IF (IS^PT.EQ.O) G( p Tp 682 

Dp 681 J=1,NF 
Df> 681 JJ=1 ,NS 

DUM = SUNCIpR (J)*FL<pAT (ARRAY ( JJ+ ( J-l) *NS) ) 

ARRAY (JJ+ (J-l) *NS) = IFIX(DUM) 

ADDRESS = DRUMAD+ (II-l) *NV 

CALL RWRITE (ADDRESS , ARRAY (1), NV, STATUS) 

n 


690 CONTINUE 

C** LINE LOOP COMPLETE 

700 CONTINUE 

C** LOOP FOR FILE I COMPLETE 

C** WRITE OUTPUT FILE 

DATFI = DATFIL -1 
C** POSITION OUTPUT FILE 

CALL FSFMFL (DATAPE , DATFI, ISTAT) 

C** SET OUTPUT CHANNELS 1,2,..., NOFEAT 
D<$) 800 1=1, NjOFEAT 
800 FETVEC (1,1) =1 
C** WRITE HEADER OF OUTPUT FILE 

CALL WRTHED (N0FEAT, FETVEC (1,1), NJ&SAMP , F0RMM, DATAPE) 

C** EXTRACT SCAN LINES ONE AT A TIME 
C** WRITE TO OUTPUT FILE 
LSTLIN=0 

NV=N0SAMP* NpFEAT 
Dp 850 1=1, N0LINE 

IF (I.EQ.N0LINE) LSTLIN = -1 

ADDRESS = DRUMAD + (I-1)*NV 

CALL RREAD (ADDRESS, ARRAY ( 1 ) , NV, ISTAT) 

CALL WRTLN (ARRAY (1), LSTLIN) 

850 CONTINUE 

C** RETURN TO MONTOR 

C** OUTPUT FILE COMPLETED 

RETURN 
END 


3.2. 1.7 Flowchart 
TBD 

3 . 2 . ,1 . 8 Listing 
TBD 


te 


3.2.2 SOFTWARE COMPONENT NO. 2 (SET18) 


Subroutine SETX8 will process control and field and card images 
provided by the user. (These card images will be in the form 
of either physical cards placed in a card reader or a card image 
file usually created by editing on a remote on-line terminal) . 
SET18 will cause the initial loading of all variables in the 
/MRGDAT/ labeled common block. In addition, the following 
variables from other common blocks will be loaded. 

/GLOBAL/: DATAPE, DATFIL, NCHPAS 

/IS^LNK/: I SUNT, ISUNC 

3.2. 2.1 Linkages 

Subroutine SET18 will be called once by DAMRG, and will call 
EOD-LARSYS routines NXTCHR, ^RDER, NUMBER, FIND12 , and LAREAD. 

3. 2. 2. 2 Interfaces 

Subroutine SET18 interfaces with other routines through labeled 
common /GLOBAL/, /TAPERD/, /WRTAP/ , /MRGDAT/, and /IS^JLNK/. 

3.2.2. 3 Inputs 

Primary input to SET18 will be the control and field card file. 
No calling sequence is provided. The card image file is 
described in Section 3.2. 

3 . 2 . 2 . 4 Outputs 
N/A 

3. 2 . 2 . 5 Storage 
TBD 



'reiis -.atWm* t»V * •* *■ 




3. 2. 2. 6 Description 

Subroutine SET18 will have the same overall architecture as the 
other setup routines in the EOD-LARSYS system, in particular, 
SET14 is an appropriate model. The first four characters of 
each control card image are stored and compared against a data 
array . 

/ ' NCPA' , 'F^RM' , 'DATE', ' HED1 ' , ' HED2 1 , 'NLIN' , '0PTI', 'NACR' , 
'SUNA', 'DATA', 'LINE', 'CHAN 1 , ' *END'/ 

When a match is found, transfer is made to the corresponding 
code to decode information starting at column 11. 

A count will be made of all cards of the form 
DATAPE INPUT/ 

to determine the number of input files NUMFIL. Upon encountering 
the *END delimiter, the field cards will be read and decoded by 
repeated calls to LAREAD (one call if channel or pseudo option) . 
The $END card delimits card input and triggers a return to 
DATMRG, the calling routine. 

Continuation of information from one card image to another will 
only occur on LINES control cards (pseudo merge option) . The 
recommended way of handling these card images is sketched as 
follows : 

N0LINE = 0 (initially) 

Upon encountering a 'LINE' card 

N CELINE = NUMBER (CARD, C0L, LINES, N0LINE) 

This keeps a running total of lines read in and stores line 
numbers in LINES. Lines associated with input files will be 
discerned by use of NLINES(6), the count for each file in order 
of input. 


3. 2. 2. 7 Flowchart 


N/A 

3. 2. 2. 8 Listing 
TBD 



3.2.3 SOFTWARE COMPONENT NO. 3 (TAPHDR) 

Subroutine TAPHDR is an EOD-LARSYS utility routine to read header 
records of Universal or LARSYS III formatted files. 

3. 2. 3.1 Linkages 

Subroutine TAPHDR will be called by routine DAMRG. It calls 
subroutine BUFILL. 

3. 2. 3. 2 Interfaces 

TAPHDR interfaces with other routines through labeled common 
/ISpLNK/ and /TAPERD/ and a calling sequence. 


3 . 2 . 3 . 3 Inputs 
Calling sequence: 

SUBROUTINE TAPHDR (DATAPE, IFILE) 


Variable 

Dimension 

Description 

DATAPE 

1 

Fortran unit number of file 
to be processed 

IFILE 

1 

Number of files to be 
skipped starting at load 
point to reach file of 
interest - or, relative 
file number minus one. 

Input to 

TAPHDR also includes 

an MSS image file. 


3 . 2 . 3 . 4 O utputs 
N/A 

3 . 2 . 3 . 5 Storage 
TBD 



3.2 . 3.6 Description 

TAPHDR will be enhanced to unpack additional information from 
Universal format input fyes. 

Additions and modifications are as follows, to extract date and 
site: 

DIMENSION NB (28) ,, HWRD (28) 

61, 62, 63, 67/ added to HWRD data 

8, 8, 8, 16/ added to NB data. 

To extract gains and biases : 

40 ILIM-156 

remove the ISUNT tost for ILIM 

IWD « 112+ (1-29) *4 
IF (I.LT.29) IWD * HWRD (I) 

N BYTES = 4 

IF (I.LT.29) MBYTES - NB(I)/8 

remove ILIM test for storage of 

sunangles in SUNANG(8) and 
replace with TSUNT.NE.O requirement. 

3.2. 3.7 Flowchart 
TBP 

3. 2 . 3. 8 Listing 


TBP 


3.2,4 SOFTWARE COMPONENT NO. 4 (WRTHED) 

Subroutine WRTHED writes the header record for ? Universal or 
LARSYS III formatted data file. It is an EOD-hARSYS utility. 

3 . 2 . 4 . 1 Linkago a 

WRTHED will be called by routine DAMRG . It calls WRTREC . 


3. 2. 4. 2 Interfaces 

WRTHED interfaces with other routines through labeled common 
/WRTAP/ and a calling sequence. 


3. 2. 4. 3 Inputs 
Calling sequence; 

SUBROUTINE WRTHED (NCHAN, FEAT, NSAMP , FRMAT, IUNIT) 


Variable 

Dimension 

Description 

NCHAN 

1 

number of channels to be 
written 

FEAT 

NCHAN 

channel numbers 

NSAMP 

1 

number of pixels per line 

FRMAT 

1 

# 

*1 Universal, ~ 2 , larsys III 

IUNIT 

1 

Fortran unit number for output 


3. 2. 4 . 4 Outputs 






WRTHED provides the first record of an output data file. 


3. 2. 4. 5 Storage 
TBD 


3 ^ 


3 . 2 . 4 . 6 Description 

The output header will he enhanced to provide more informa- 
tion. Information is unpacked from the VARBL(600) variable in 
the /WRTAP/ common block. 

Additions and changes will be as follows. 

LOGICAL* 1 VARIAB (2400 ) 
xX'UIV (VARBL(l), VARIAB (1)) 

P ACRAY ( I ) “VARIAB ( I ) , 1= 73, 74, 75, 79, 80 
(This stores the date and site number) 

D<|> 110 L=1 , 512 

110 PACRAY (111+L) « VARIAB (111+L) 

(This stores gains and biases) . 

D(p 120 L=1 , 16 

120 PACRAY (2200+L) * VARIAB (2200+L) 

(This stores sun angles) . 

These additional variables are only provided if the Universal 
format is chosen. 

3 . 2 . 4 . 7 Flowchart 
N/A 

3 . 2 . 4 . 8 Listing 
TBD 



3.2.5 SOFTWARE COMPONENT NO. 5 (MSCAN) 

Subroutine MSCAN is part of the EOD-LARSYS monitor system. It 
reads processor control cards and informs MONTOR as to which 
processor to call. 


3. 2. 5.1 Linkage 

Routine MSCAN is called by routine MENTOR. It calls the re-read 
facility. 

3.2. 5.2 Interfaces 

MSCAN interfaces with other routines through common blocks 
/GLOBAL./ and, recently, /TAPERD/. (The /TAPERD/ block was 
added to set the input format parameter F<|>RMT =1 or 2 
(Universal or LARSYS II)). A calling sequence is provided. 


3 . 2 .5 . 3 Inputs 
Calling sequence: 

SUBROUTINE MSCAN (MG0, DBUG) 

Description 

Sequence number of processor 
list for use by MONTOR 

Initial call flag 

n=l all formatted input 
files are Universal, n=2 , 
LARSYS III 

3. 2. 5. 4 Outputs 
N/A 


Variable 


Dimension 


MG|> 


DBUG 


FORM 


New Control CARDS 
n (default n=l) 


3 ^ 


3 . 2 . 5 . 5 Storage 
TBD 

3.2.5. 6 Description 

The variable F(|)RMT in /TAPERD/ will be set to 1 or 2 based on the. 
control card F$RM. This specifies the format of all input 
formatted files in an execution of the EOD-LARSYS system. The 
FtyEM card must be the first card in the card image file presented 
to the EOD-LARSYS system. 

In order to provide for inclusion of the new processor DAMRG , 
the data variable ' $DAM' must be inserted between ' $LAB ' and 
' $ EXI ' in the C^DTAB vector. The dimension of C^DTAB must be 
expanded to 16, and, correspondingly C0DDEM set to 16. 

3. 2. 5. 7 Flowchart 
N/A 

3. 2. 5. 8 Listing 


TBD 


3.2.6 SOFTWARE COMPONENT NO. 6 (MONTOR) 

Routine MONTOR calls the processors of the EOD^LARSYS system. 


3. 2. 6.1 Linkage 

MENTOR is the main program of the EOD-LARSYS system. It calls 
subroutine MSCAN and processors STAT, CLSFY, DSPLAY , SELECT, 
HIST, IS^CLS, GRAYMP, DATATR , TRSTAT , NDHIST , SCTRPL, D0TDAT, 
LABEL, and will call DAMRG . 

3.2.6. 2 Interfaces 

M0NT0R interfaces with other routines through common block 
/GL0BAL/, and blank common ARRAY ( T^)P ) , T0P= 10600. 

3 . 2 . 6 . 3 Inputs 
N/A 

3. 2. 6. 4 Outputs 
N/A 

3 . 2 .6 . 5 Storage 
TBD 

3. 2.6.6 Description 

Provision for the proposed processor DAMRG is made by modifying 
the G<J) T<J) statement to include location 275 between 260 and 2 80. 

At location 275, the following code will be included. 

275 CALL DAMRG (ARRAY , T<f)P ) 

CALL CL<j)CK (TIME) 

WRITE (6,276) TIME 

276 FORMAT (// 'TIME FOR DAMRG', F10 . 3 ,* MINUTES ' ) 

G<|) Tcj) 10 





If, for any purpose, an enlargement of the ARMY buffer xs 
required, this can be achieved by redimensioninq ARRAY and 
changing T0P from 10600 to a larger number. 

3. 2. 6. 7 Flowchart 
N/A 

3 . 2 . 6 . 8 Listing 
TBD 


I 



4 . OPERATION 


The DAMRG program will be implemented as a stand-alone processor 
on the EOD-LARSYS Pattern Recognition System currently installed 
on the Purdue-LARS 370/148 computer system. Users with sign-on 
numbers (IDs) can use the system by linking to the EOD-LARSYS 
disk. From CMS 370 this can be achieved by issuing the following 
commands . 

CP LINK JSC770 191 200 R PASS=bAUCpIN 
ACCESS 200 B/A 

A card image file named FILE FT21F001 A must be available. 

An EXEC file must be made available to set up file definitions 
and allocate space, or users can build EXECs suitable for their 
individual needs. 
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